home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / finance / jobs20.zip / JOBS.PRG < prev    next >
Text File  |  1993-06-01  |  8KB  |  294 lines

  1. *:*************************************************************************
  2. *:
  3. *:      Program: JOBS.PRG
  4. *:
  5. *:       System: Job Search - Version 2.0
  6. *:       Author: R. J. Kovach
  7. *:
  8. *:*************************************************************************
  9. *:       Copyright (C) 1993, R.J. Kovach & Assoc.    ALL RIGHTS RESERVED
  10. *:*************************************************************************
  11. *:
  12. *:       System: Runs with dBase III Plus and Foxpro version 2.0 and later.
  13. *:
  14. *:        Calls: PROGTYPE (procedure in JOBEDIT.PRG)
  15. *:             : NEWRECORD (procedure in JOBADD.PRG)
  16. *:             : DUPLICATE (procedure in JOBADD.PRG)
  17. *:             : EDITDATA (procedure in JOBEDIT.PRG)
  18. *:             : REPORTS (procedure in JOBREP.PRG)
  19. *:             : SUMMARY (procedure in JOBUTIL.PRG)
  20. *:             : BACKUP (procedure in JOBUTIL.PRG)
  21. *:             : DBINDX (procedure in JOBUTIL.PRG)
  22. *:             : PACKDB (procedure in JOBUTIL.PRG)
  23. *:             : UTILITIES (procedure in JOBUTIL.PRG)
  24. *:
  25. *: Memory Files: SETUP.MEM
  26. *:
  27. *: Binary Files: TWENTY.BIN   (Reserves twenty files)
  28. *:
  29. *: Documented: 4/23/93
  30. *: Revised:    6/01/93
  31. *:
  32. *: Revision History:
  33. *:    Rev. 2.0 : Major rewrite of code.  Adapted to run on Foxpro
  34. *:
  35. *:*************************************************************************
  36.  
  37.  
  38. CLEAR ALL
  39. CLEAR
  40. LOAD twenty.bin
  41. CALL twenty
  42. SET STATUS OFF
  43. SET TALK OFF
  44. SET BELL OFF
  45. SET ESCAPE ON
  46. SET SAFETY OFF
  47. SET EXACT OFF
  48. ON ESCAPE DO stopret
  49. PUBLIC mono, mono2, mono3, mcolor, mcolor2, mcolor3
  50. PUBLIC mcolor4, mcolor5, mcolor6, mcolor7, monitor, moniprnt, monidb
  51. STORE ' ' to monidb
  52. @  7,24 SAY 'J O B  S E A R C H   P R O G R A M'
  53. @ 10,35 SAY 'Version 2.0 '
  54. @ 13,23 SAY '(C) 1993, R. J. Kovach & Associates'
  55. @ 14,26 SAY '     ALL RIGHTS RESERVED'
  56. RESTORE FROM setup
  57. IF monidb = 'D'
  58.    @ 16,32 SAY 'dBase III Version'
  59. ENDIF
  60. IF monidb = 'F'
  61.    @ 16,34 SAY 'Foxpro Version'
  62. ENDIF
  63. IF monidb <> 'D'
  64.    IF monidb <> 'F'
  65.       @ 16,5 SAY 'CAUTION: Not configured for a database, run Setup before continuing.'
  66.       @ 18,0
  67.       WAIT
  68.    ENDIF
  69. ENDIF
  70. @  5,21 TO 18,60 DOUBLE
  71. @ 24,78 SAY ' '
  72. STORE 1 TO x
  73. IF monidb = 'D'
  74.    DO WHILE x < 500
  75.       x = x + 1
  76.       LOOP
  77.    ENDDO
  78. ELSE
  79.    DO WHILE x < 5000
  80.       x = x + 1
  81.       LOOP
  82.    ENDDO
  83. ENDIF
  84.  
  85. SET PROCEDURE TO jobrep.prg
  86. DO register
  87. CLOSE PROCEDURE
  88.  
  89. mono    = "W/N,N/W,N,N"
  90. mono2   = "W*/N,N/W,N,N"
  91. mono3   = "W+/N,N/W,N,N"
  92. mcolor  = "G+/B,N/R,B"
  93. mcolor2 = "BG+/B,N/R,B"
  94. mcolor3 = "R+/B,N/R,B"
  95. mcolor4 = "RB+/B,N/R,B"
  96. mcolor5 = "GR+/B,N/R,B"
  97. mcolor6 = "W+/B,BG/R,B,B"
  98. * mcolor6 = "W+/B,GR+BG,B,B"
  99. mcolor7 = "R+*/B,N/R,B"
  100. SET FUNCTION 2 TO ' '
  101. SET FUNCTION 3 TO ' '
  102. SET FUNCTION 4 TO ' '
  103. SET FUNCTION 5 TO ' '
  104. SET FUNCTION 6 TO ' '
  105. SET FUNCTION 7 TO ' '
  106. SET FUNCTION 8 TO ' '
  107. SET FUNCTION 9 TO ' '
  108. * SET FUNCTION 3 TO CHR(13)+'Latest Year Organized:          Owner Change Date:         '+CHR(13)+'State of Incorporation:         Date of Incorporation:       '+CHR(13)+'Annual Sales Revision Date:          '+CHR(13)
  109. * SET FUNCTION 4 TO CHR(13)+'                        LATEST            TREND             BASE'+CHR(13)+'                          YEAR             YEAR             YEAR'+CHR(13)+'                                          (19  )           (19  )'+CHR(13)
  110. * SET FUNCTION 5 TO CHR(13)+'Sales               $                $                $          '+CHR(13)+'Employees Total               '+CHR(13)+'Employees Here         '+CHR(13)
  111. * SET FUNCTION 6 TO CHR(13)+'  Sales Growth:         Net Worth:                '+CHR(13)+'  Employment Growth:         '+CHR(13)
  112. * SET FUNCTION 7 TO CHR(13)+'Square Footage:'+CHR(13)+'Sales Territory:                  Number of Accounts:'+CHR(13)+'Accounting Firm:'+CHR(13)+'Bank: '+CHR(13)
  113. SET PROCEDURE TO jobedit.prg
  114. IF monitor = "C"
  115.    SET COLOR TO &mcolor
  116. ELSE
  117.    SET COLOR TO &mono
  118. ENDIF
  119. STORE " " TO type
  120. STORE " " TO type1
  121. STORE " " TO type2
  122.  
  123. DO progtype
  124.  
  125. DO WHILE .T.
  126.    CLEAR
  127.    IF monitor = 'C'
  128.       SET COLOR TO &mcolor2
  129.    ENDIF
  130.    @ 3,4 TO 20,76
  131.    @ 1,22 TO 3,58 DOUBLE
  132.    @ 7,5 TO 7,75
  133.    IF monitor = 'C'
  134.       SET COLOR TO &mcolor3
  135.    ENDIF
  136.    @ 2,5 SAY DATE()
  137.    @ 2,68 SAY TIME()
  138.    IF monitor = 'C'
  139.       SET COLOR TO &mcolor2
  140.    ENDIF
  141.    @ 2,26 SAY 'M A I N   M E N U  -  J O B S'
  142.    IF monitor = 'C'
  143.       SET COLOR TO &mcolor
  144.    ENDIF
  145.    @ 5,21 SAY '1> Change Database, Currently - '
  146.    IF monitor = 'C'
  147.       SET COLOR TO &mcolor4
  148.    ENDIF
  149.    @ 5,53 SAY type1
  150.    @ 6,46 SAY RECCOUNT()
  151.    IF monitor = 'C'
  152.       SET COLOR TO &mcolor
  153.    ENDIF
  154.    @  6,57 SAY 'records'
  155.    @  9,10 SAY '2> Add New Records              6> File Backup'
  156.    @ 12,10 SAY '3> Edit or Delete Records       7> Reindex all databases'
  157.    @ 15,10 SAY '4> Print Reports                8> Remove Deleted Records (Pack)'
  158.    @ 18,10 SAY '5> Summaries                    9> Setup & Utilities'
  159.    IF monitor = 'C'
  160.       SET COLOR TO &mcolor5
  161.    ENDIF
  162.    @ 21,0 SAY ' '
  163.    WAIT '                          Pick a number, type Q to Quit  ' TO choice
  164.  
  165.    DO CASE
  166.    CASE choice = '1'
  167.       DO progtype
  168.       CLEAR
  169.    CASE choice = '2'
  170.       CLOSE PROCEDURE
  171.       SET PROCEDURE TO jobadd.prg
  172.       DO newrecord
  173.       CLOSE PROCEDURE
  174.       SET PROCEDURE TO jobedit.prg
  175.       CLEAR
  176.    CASE UPPER(choice) = 'D'
  177.       CLOSE PROCEDURE
  178.       SET PROCEDURE TO jobadd.prg
  179.       DO duplicate
  180.       CLOSE PROCEDURE
  181.       SET PROCEDURE TO jobedit.prg
  182.       CLEAR
  183.    CASE choice = '3'
  184.       DO editdata
  185.       CLEAR
  186.    CASE choice = '4'
  187.       CLOSE PROCEDURE
  188.       SET PROCEDURE TO jobrep.prg
  189.       DO reports
  190.       CLOSE PROCEDURE
  191.       SET PROCEDURE TO jobedit.prg
  192.       CLEAR
  193.    CASE choice = '5'
  194.       CLOSE PROCEDURE
  195.       SET PROCEDURE TO jobutil.prg
  196.       DO summary
  197.       CLOSE PROCEDURE
  198.       SET PROCEDURE TO jobedit.prg
  199.       CLEAR
  200.    CASE choice = '6'
  201.       CLOSE PROCEDURE
  202.       SET PROCEDURE TO jobutil.prg
  203.       DO backup
  204.       CLOSE PROCEDURE
  205.       SET PROCEDURE TO jobedit.prg
  206.       CLEAR
  207.    CASE choice = '7'
  208.       CLOSE PROCEDURE
  209.       SET PROCEDURE TO jobutil.prg
  210.       DO dbindx
  211.       CLOSE PROCEDURE
  212.       SET PROCEDURE TO jobedit.prg
  213.       CLEAR
  214.    CASE choice = '8'
  215.       CLOSE PROCEDURE
  216.       SET PROCEDURE TO jobutil.prg
  217.       DO packdb
  218.       CLOSE PROCEDURE
  219.       SET PROCEDURE TO jobedit.prg
  220.       CLEAR
  221.    CASE choice = '9'
  222.       CLOSE PROCEDURE
  223.       SET PROCEDURE TO jobutil.prg
  224.       DO utilities
  225.       IF monitor = 'C'
  226.          SET COLOR TO &mcolor5
  227.       ELSE
  228.          SET COLOR TO &mono
  229.       ENDIF
  230.       CLOSE PROCEDURE
  231.       SET PROCEDURE TO jobedit.prg
  232.       CLEAR
  233.    CASE UPPER(choice) = 'Q'
  234.       CLEAR
  235.       IF monitor = 'C'
  236.          SET COLOR TO &mcolor2
  237.       ENDIF
  238.       @ 4,4 TO 13,76
  239.       IF monitor = 'C'
  240.          SET COLOR TO &mcolor
  241.       ENDIF
  242.       @ 6,28 SAY 'Return to:'
  243.       @ 8,33 SAY '1> Operating System (DOS)'
  244.       IF monidb = 'F'
  245.          @ 10,33 SAY '2> Foxpro System'
  246.       ELSE
  247.          @ 10,33 SAY '2> dBase System'
  248.       ENDIF
  249.       IF monitor = 'C'
  250.          SET COLOR TO &mcolor5
  251.       ENDIF
  252.       @ 15,15 SAY ' '
  253.       WAIT '               Pick a number or type Q to return to the Main Menu  ' TO choice2
  254.       DO CASE
  255.       CASE choice2 = '1'
  256.          SET STATUS ON
  257.          CLEAR
  258.          CLEAR ALL
  259.          QUIT
  260.       CASE choice2 = '2'
  261.          SET STATUS ON
  262.          SET TALK ON
  263.          SET SAFETY ON
  264.          SET ESCAPE ON
  265.          SET EXACT ON
  266.          IF monitor = 'C'
  267.             SET COLOR TO &mcolor6
  268.          ENDIF
  269.          IF monidb = 'F'
  270.             SET FUNCTION 2 TO 'SET'+CHR(13)
  271.          ELSE
  272.             SET FUNCTION 2 TO 'ASSIST'+CHR(13)
  273.          ENDIF
  274.          SET FUNCTION 3 TO 'LIST'
  275.          SET FUNCTION 4 TO 'DIR'
  276.          SET FUNCTION 5 TO 'DISPLAY STRUCTURE'+CHR(13)
  277.          SET FUNCTION 6 TO 'DISPLAY STATUS'+CHR(13)
  278.          SET FUNCTION 7 TO 'DISPLAY MEMORY'+CHR(13)
  279.          SET FUNCTION 8 TO 'DISPLAY'+CHR(13)
  280.          SET FUNCTION 9 TO 'APPEND'+CHR(13)
  281.          CLEAR
  282.          CLEAR ALL
  283.          CLOSE PROCEDURE
  284.          RETURN
  285.       CASE UPPER(choice) = 'Q'
  286.          CLEAR
  287.          LOOP
  288.       ENDCASE
  289.    ENDCASE
  290. ENDDO
  291.  
  292.  
  293. *: EOF: JOBS.PRG
  294.